home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MH.PRG < prev    next >
Text File  |  1986-06-24  |  1KB  |  55 lines
  1. * MH   DB3 PLUS                                   REVISION 03/09/86
  2. *
  3. SET TALK OFF
  4. SET INTENSITY ON
  5. SET STATUS OFF
  6. *LOAD Curson
  7. *LOAD Cursoff
  8. PUBLIC choice
  9. STORE [ ] TO choice
  10. DO WHILE .T.
  11.    CLEAR ALL
  12.    SET COLOR TO N/W
  13.    CLEAR
  14.    @  2, 11  TO 20, 64 DOUBLE
  15.    @  4, 29  TO  6, 46 DOUBLE 
  16.    @  5, 31  SAY  "MICROBE HUNTER" 
  17.    @  8, 23  SAY "(c) 1986 by G.R. Zucconi, M.D."
  18.    @ 11, 19  SAY "1. Search Database   5. References"
  19.    @ 12, 19  SAY "2. List One Drug     6. Add Data"
  20.    @ 13, 19  SAY "3. List All Drugs    7. Exit to dBASE"
  21.    @ 14, 19  SAY "4. Introduction &    8. Exit to DOS"
  22.    @ 15, 25  SAY "Synopsis"
  23.    @ 17, 29  SAY "Enter your choice"
  24. *  CALL Cursoff
  25.    @ 23, 0 
  26.    WAIT ' ' TO choice
  27. *  CALL Curson
  28.    SET COLOR TO W/N
  29.    IF choice < '1' .OR. choice > '8'
  30.       LOOP
  31.    ENDIF
  32.    DO CASE
  33.       CASE choice = '1'
  34.          DO MHSEARCH
  35.       CASE choice = '2'
  36.          CLEAR
  37.          DO MHDRUG
  38.       CASE choice = '3'
  39.          DO MHLIST
  40.       CASE choice = '4'
  41.         DO MHTEXT
  42.       CASE choice = '5'
  43.          DO MHREFER
  44.       CASE choice = '6'
  45.          DO MHAPPEND
  46.       CASE choice = '7'
  47.          CLEAR
  48.          CANCEL
  49.       CASE choice = '8'
  50.          CLEAR
  51.          QUIT
  52.    ENDCASE
  53. ENDDO WHILE T
  54.  
  55.